home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Games / outland-minimum-installer / Outland Minimum Installer / Outland Minimum Installer / Hayes Ultra 144 < prev    next >
Text File  |  1992-07-29  |  4KB  |  227 lines
  1. ! "Hayes Ultra 144 - 11/08/91"
  2. ! Modified 7/26/92
  3. !
  4. ! VERSION 1.2
  5. !
  6. @ORIGINATE
  7. @ANSWER
  8. !
  9. @LABEL 1
  10. !
  11. !   Open ports at 19.2 Kbps
  12. !
  13. serreset 19200, 0, 8, 1
  14. !
  15. ! first recall the factory configuration
  16. !
  17. matchclr
  18. settries 0
  19. matchstr 1 3 "OK\13\10"
  20. @LABEL 2
  21. write "AT&F\13"
  22. matchread 30
  23. inctries
  24. iftries 2 59
  25. jump 2
  26. !
  27. ! Next, Set dialing & carrier time: Echo off, enable RTS/CTS flow control
  28. HSReset 0 1 0 0 0 0
  29. @LABEL 3
  30. matchstr 1 4 "OK\13\10"
  31. write "ATS9=2S7=60S10=100S36=3E0&K3\13"
  32. matchread 30
  33. jump 59
  34. !
  35. ! Next, turn off error control and DTR, use ASB, show DCE connect speeds
  36. !       
  37. !
  38. @LABEL 4
  39. matchstr 1 5 "OK\13\10"
  40. matchstr 2 5 "ERROR\13\10"
  41. write "AT&D0&Q6W2\13"
  42. matchread 30
  43. !
  44. ! If speaker on flag is true, jump to label 8.  Else turn off the speaker
  45. @LABEL 5
  46. matchclr
  47. ifstr 2 8 "1"
  48. matchstr 1 8 "OK\13\10"
  49. write "ATM0\13"
  50. matchread 30
  51. jump 59
  52. !
  53. ! The modem is ready.  So enable answering, or originate a call
  54. !
  55. @LABEL 8
  56. ifANSWER 30
  57. note "Dialing ^1" 3
  58. write "ATS0=0DT^1\13"
  59. !
  60. @LABEL 9
  61. matchstr  1 11 "CONNECT 1200\13\10"
  62. matchstr  2 12 "CONNECT 2400\13\10"
  63. matchstr  3 13 "CONNECT 4800\13\10"
  64. matchstr  4 14 "CONNECT 7200\13\10"
  65. matchstr  5 15 "CONNECT 9600\13\10"
  66. matchstr  6 16 "CONNECT 12000\13\10"
  67. matchstr  7 17 "CONNECT 14400\13\10"
  68. matchstr  8 50 "NO CARRIER\13\10"
  69. matchstr  9 50 "ERROR\13\10"
  70. matchstr  10 52 "NO DIALTONE\13\10"
  71. matchstr  11 53 "BUSY\13\10"
  72. matchstr  12 54 "NO ANSWER\13\10"
  73. matchread 999
  74. jump 59
  75. !
  76. !   NOTE: uses CommunicatingAt and NOT SERreset. Modem is ALWAYS set at 19200 while
  77. !         DCE speeds are lower
  78. !
  79. @LABEL 11
  80. note "Communicating at 1200 bps." 2
  81. CommunicatingAt 1200
  82. jump 18
  83. !
  84. @LABEL 12
  85. note "Communicating at 2400 bps." 2
  86. CommunicatingAt 2400
  87. jump 18
  88. !
  89. @LABEL 13
  90. note "Communicating at 4800 bps." 2
  91. CommunicatingAt 4800
  92. jump 18
  93. !
  94. @LABEL 14
  95. note "Communicating at 7200 bps." 2
  96. CommunicatingAt 7200
  97. jump 18
  98. !
  99. @LABEL 15
  100. note "Communicating at 9600 bps." 2
  101. CommunicatingAt 9600
  102. jump 18
  103. !
  104. @LABEL 16
  105. note "Communicating at 12000 bps." 2
  106. CommunicatingAt 12000
  107. jump 18
  108. !
  109. @LABEL 17
  110. note "Communicating at 14400 bps." 2
  111. CommunicatingAt 14400
  112. !
  113. @LABEL 18
  114. !
  115. !   Make sure ARA is set for hardware handshaking
  116. !
  117. HSReset 0 1 0 0 0 0
  118. ifANSWER 19
  119. pause 30
  120. @LABEL 19
  121. exit 0
  122. !
  123. ! @ANSWER
  124. ! Set up modem to answer on second ring, connect to V-9600's at highest speed 
  125. ! note that error correction has to be on here. If this causes and problems
  126. ! and you are not using a V-Series 9600, then take out &Q5.
  127. ! 
  128. ! When connection is made with EC on, modem will fall back to ASB by default
  129. ! when the connection does not use EC.
  130. @LABEL 30
  131. write "AT&Q5S0=2\13"
  132. matchstr 1 31 "OK\13\10"
  133. matchread 30
  134. jump 59
  135. !
  136. @LABEL 31
  137. matchstr 1  32 "RING\13\10"
  138. matchstr 2  11 "CONNECT 1200\13\10"
  139. matchstr 3  12 "CONNECT 2400\13\10"
  140. matchstr 4  13 "CONNECT 4800\13\10"
  141. matchstr 5  14 "CONNECT 7200\13\10"
  142. matchstr 6  15 "CONNECT 9600\13\10"
  143. matchstr 7  16 "CONNECT 12000\13\10"
  144. matchstr 8  17 "CONNECT 14400\13\10"
  145. matchstr 9  50 "NO CARRIER\13\10"
  146. matchstr 10  50 "ERROR\13\10"
  147. matchstr 11  52 "NO DIALTONE\13\10"
  148. matchstr 12 53 "BUSY\13\10"
  149. matchstr 13 54 "NO ANSWER\13\10"
  150. matchread 700
  151. jump 31
  152. !
  153. @LABEL 32
  154. userhook 1
  155. note "Answering phone…" 2
  156. jump 31
  157. !
  158. ! 50: error messages
  159. !
  160. @LABEL 50
  161. exit -6021
  162. !
  163. @LABEL 52
  164. exit -6020
  165. !
  166. @LABEL 53
  167. exit -6022
  168. !
  169. @LABEL 54
  170. exit -6023
  171. !
  172. @LABEL 59
  173. exit -6019
  174. !
  175. ! Hang up the modem
  176. !
  177. @HANGUP
  178. @LABEL 60
  179. settries 0
  180. @LABEL 61
  181. write "ATH0\13"
  182. matchclr
  183. matchstr 1 64 "OK\13\10"
  184. matchstr 2 63 "NO CARRIER\13\10"
  185. matchstr 3 64 "ERROR\13\10"
  186. matchread 15
  187. inctries
  188. iftries 3 64
  189. ! no response, try escape sequence
  190. write "+++"
  191. pause 300
  192. matchclr
  193. matchstr 1 62 "OK\13\10"
  194. matchread 18
  195. ! No response from modem, use reset command
  196. write "ATZ\13\10"
  197. pause 300
  198. jump 61
  199. !
  200. @LABEL 62
  201. matchclr
  202. matchstr 1 64 "OK\13\10"
  203. matchstr 2 63 "NO CARRIER\13\10"
  204. write "ATH0\13"
  205. matchread 50
  206. jump 61
  207. !
  208. @LABEL 63
  209. pause 45
  210. flush
  211. !
  212. ! Recall the factory settings
  213. !
  214. @LABEL 64
  215. matchclr
  216. matchstr 1 65 "OK\13\10"
  217. write "AT&F\13"
  218. matchread 30
  219. !
  220. @LABEL 65
  221. matchstr 1 66 "OK\13\10"
  222. write "ATS0=0\13"
  223. matchread 30
  224. !
  225. @LABEL 66
  226. exit 0
  227.